Entre Ríos

Casos por Departamento

A continuación se muestran la cantidad de casos de COVID-19 confirmados por el Ministerio de Salud de Entre Ríos, discriminados por departamento y localidad

Departamental

  covider <- covid_er %>% group_by(DEPARTAMENTO) %>%
    mutate(cantidad=n()) %>% select(DEPARTAMENTO, cantidad) %>% unique()
  
  
  highchart() %>%
    hc_title(text = "<i>Casos de COVID-19 en Entre Ríos</i> ",
             margin = 20, align = "center", style = list(color = "#08338F", useHTML = TRUE)) %>%
    hc_tooltip(followPointer =  FALSE) %>%
    hc_add_series_map(entrerios, covider, name = "Casos", value = "cantidad",
                      joinBy = c("nam", "DEPARTAMENTO"),
                      dataLabels = list(enabled = TRUE,
                                        format = '{point.properties.nam}: {point.value}')) %>%
    hc_colorAxis(minColor = "#B7D4EB", maxColor = "#08338F")  %>%
    hc_legend(align = "center", x = 0, y = -10) %>%
    hc_mapNavigation(enabled = TRUE) %>%
    hc_add_theme(hc_theme_ffx()) %>% 
    hc_add_annotation(xValue = 0, yValue = 0, title = list(text = 'Fuente: Ministerio Salud ER')) %>% 
    hc_chart(borderColor = "#08338F", borderRadius = 10, borderWidth = 2)

Por Ciudad

Incidencia Acumulada

En Argentina, la tasa de incidencia acumulada nacional es de 9.76 cada 100 mil habitantes. La Incidencia Acumulada de toda la provincia de Entre Ríos es de 1.8 cada 100.000 habitantes.

La incidencia acumulada (IA) a nivel departamental, considerando la población proyectada por INDEC para el 2020 se observan en el mapa y tabla a continuación

Mapa

   covid_er_ia <- covider %>% left_join(poblac_er, by=c("DEPARTAMENTO"="departamento")) %>% 
       mutate(ia= round(cantidad/poblacion * 100000, 2)) %>% arrange(desc(ia))

   highchart() %>%
    hc_title(text = "<i>Incidencia Acumulada de COVID-19 en Entre Ríos</i> ",
             margin = 20, align = "center", style = list(color = "#780000", useHTML = TRUE)) %>%
    hc_tooltip(followPointer =  FALSE) %>%
    hc_add_series_map(entrerios, covid_er_ia, name = "Incidencia", value = "ia",
                      joinBy = c("nam", "DEPARTAMENTO"),
                      dataLabels = list(enabled = TRUE,
                                        format = '{point.properties.nam}: {point.value}')) %>%
    hc_colorAxis(minColor = "#FFAAAA", maxColor = "#780000")  %>%
    hc_legend(align = "center", x = 0, y = -10) %>%
    hc_mapNavigation(enabled = TRUE) %>%
    hc_add_theme(hc_theme_ffx()) %>% 
    hc_add_annotation(xValue = 0, yValue = 0, title = list(text = 'Fuente: Ministerio Salud ER')) %>% 
    hc_chart(borderColor = "#780000", borderRadius = 10, borderWidth = 2)

Tabla

 tabiaprov_er <- covid_er_ia %>% select(DEPARTAMENTO, poblacion, cantidad, ia) %>% arrange(desc(ia))
  tabiaprov_er %>% kable(col.names = c("Departemento","Población",  "Casos", "Tasa Incidencia"),
                      format.args = list( big.mark=".", decimal.mark = ","),
            align=c('l', 'c', 'c', 'c')) %>%
  kable_styling()

Departemento	Población	Casos	Tasa Incidencia
Islas del Ibicuy	13.420	1	7,45
Gualeguay	58.565	3	5,12
Gualeguaychú	124.231	5	4,02
Diamante	51.384	2	3,89
Colón	77.039	3	3,89
Villaguay	52.651	2	3,80
Nogoyá	41.304	1	2,42
Paraná	376.912	6	1,59
La Paz	72.051	1	1,39
Concordia	191.117	1	0,52